Developer Helper 1: Phil & Dave's Excellent CD/Excellent CD HFS.raw/HyperCard/HyperCard 1.2.2 International/HyperCard Danish (DK-1.2.2)/Idestakke/Baggrundsideer/background_56064.txt

Text File | 1988-12-19 | 5KB | 206 lines

-- background: 56064 from stack: in
-- bmap block id: 30863
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on newStack
  extend
end newStack

on extend
  -- type "extend" into the message box and press return to make
  -- three months worth of new cards.
  if the name of this stack contains "Baggrundsideer"
  then
  answer "Opret venligst en ny stak, f√∏r den udvides." with "OK"
else
  answer "Skal der laves nye kort til tre måneder?" with "OK" or "Annuller"
  if it is "Annuller" then exit extend
  go to last card of this background
  put getStartDate() into start      --what date to begin on
  if start is "Annuller" then exit extend
  put 60*60*24 into OneDay      --seconds in a day
  repeat with cnt = 1 to (365 div 4)   --three months
    put start into it        --a copy
    convert it to long date
    put it into field "Dato"
    add OneDay to start
    doMenu New Card
  end repeat
  convert start to long date     --fix the last card
  put start into field "Dato"
end if
end extend

function getStartDate
-- end of stack or today, whichever is newer
get field "Dato"
if it is empty then put the short date into it
convert it to seconds    --so we can compare
put the short date into today
convert today to seconds
if today < 2587766400 then
  answer "Indstil Kontrolpanelet til dags dato" with "OK"
  return "Annuller"
end if
if it >= today then return it   --calendar already beyond today
convert it to short date
answer "Startende fra hvilken dato?" with it or the short date or "Annuller"
if it is "Annuller" then return it
convert it to seconds
return it
end getStartDate

on openBackground
  push recent card
end openBackground


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=421 top=47 right=73 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gå til kalender
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  go to "Kalender"
  goWeekly the seconds
end mouseUp



-- part 4 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=61 top=100 right=282 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name:


-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=231 top=285 right=310 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=262 top=285 right=310 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 9 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=269 top=74 right=90 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Dato


-- part 10 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=422 top=321 right=338 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Udvid
----- HyperTalk script -----
on mouseUp
  extend
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=421 top=283 right=311 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Retur
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=47 top=284 right=313 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hjem
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp